'This program sets the Model 2001 to Peak ACV and then ACV

'Takes a measurement at each function and displays the result.

'PC-488-CEC and QuickBasic 4.5 is used.

'DEC   4/92

CALL Initialize(21, 0)          ' init as system controller

'--- Setup 2001 measurement mode

DIM k2001data AS STRING * 80                                 'Dim string

   CLS

   CALL SETOUTPUTEOS(10, 0)

   CALL SETINPUTEOS(10)

   CALL SEND(16, ":SENS:VOLT:AC:DET PEAK", Gpib.status%)

     CALL SEND(16, ":FETCH?", Gpib.status%)

     CALL Enter(k2001data$, Gpib.len%, 16, Gpib.status%)

    PRINT k2001data$

   CALL SEND(16, ":SENS:FUNC 'VOLT:AC'", Gpib.status%)

     CALL SEND(16, ":FETCH?", Gpib.status%)

     CALL Enter(k2001data$, Gpib.len%, 16, Gpib.status%)

    PRINT k2001data$

END